home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / tu32.zip / TU32DEMO / DLGPROJ / TESTUNIT.DFM / TESTUNIT.txt
Text File  |  1996-12-07  |  10KB  |  435 lines
  1. object Form1: TForm1
  2.   Left = 235
  3.   Top = 99
  4.   Width = 640
  5.   Height = 386
  6.   Caption = 'TUtility Dialog Box Component Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 24
  17.     Top = 315
  18.     Width = 148
  19.     Height = 16
  20.     Caption = '(CallBackActive Property)'
  21.     Font.Color = clBlack
  22.     Font.Height = -13
  23.     Font.Name = 'Arial'
  24.     Font.Style = []
  25.     ParentFont = False
  26.   end
  27.   object Label2: TLabel
  28.     Left = 240
  29.     Top = 315
  30.     Width = 171
  31.     Height = 16
  32.     Caption = '(BorrowRebuildOnly Property)'
  33.     Font.Color = clBlack
  34.     Font.Height = -13
  35.     Font.Name = 'Arial'
  36.     Font.Style = []
  37.     ParentFont = False
  38.   end
  39.   object Label3: TLabel
  40.     Left = 325
  41.     Top = 142
  42.     Width = 68
  43.     Height = 15
  44.     Caption = 'Table List'
  45.     Font.Color = clBlack
  46.     Font.Height = -12
  47.     Font.Name = 'Arial'
  48.     Font.Style = []
  49.     ParentFont = False
  50.   end
  51.   object Button1: TButton
  52.     Left = 496
  53.     Top = 208
  54.     Width = 121
  55.     Height = 25
  56.     Caption = 'Execute Dialog'
  57.     TabOrder = 0
  58.     OnClick = Button1Click
  59.   end
  60.   object GroupBox1: TGroupBox
  61.     Left = 0
  62.     Top = 144
  63.     Width = 313
  64.     Height = 147
  65.     Caption = 'DlgOptions Property'
  66.     TabOrder = 1
  67.     object rdDBCombosEnabled: TCheckBox
  68.       Left = 8
  69.       Top = 16
  70.       Width = 144
  71.       Height = 17
  72.       Caption = 'rdDBCombosEnabled'
  73.       Font.Color = clBlack
  74.       Font.Height = -13
  75.       Font.Name = 'Arial'
  76.       Font.Style = []
  77.       ParentFont = False
  78.       TabOrder = 0
  79.       OnClick = rdDBCombosEnabledClick
  80.     end
  81.     object rdDBCombosVisible: TCheckBox
  82.       Tag = 1
  83.       Left = 8
  84.       Top = 32
  85.       Width = 137
  86.       Height = 17
  87.       Caption = 'rdDBCombosVisible'
  88.       Font.Color = clBlack
  89.       Font.Height = -13
  90.       Font.Name = 'Arial'
  91.       Font.Style = []
  92.       ParentFont = False
  93.       TabOrder = 1
  94.       OnClick = rdDBCombosEnabledClick
  95.     end
  96.     object rdCheckBoxEnabled: TCheckBox
  97.       Tag = 2
  98.       Left = 8
  99.       Top = 48
  100.       Width = 139
  101.       Height = 17
  102.       Caption = 'rdCheckBoxEnabled'
  103.       Font.Color = clBlack
  104.       Font.Height = -13
  105.       Font.Name = 'Arial'
  106.       Font.Style = []
  107.       ParentFont = False
  108.       TabOrder = 2
  109.       OnClick = rdDBCombosEnabledClick
  110.     end
  111.     object rdCheckBoxVisible: TCheckBox
  112.       Tag = 3
  113.       Left = 8
  114.       Top = 64
  115.       Width = 129
  116.       Height = 17
  117.       Caption = 'rdCheckBoxVisible'
  118.       Font.Color = clBlack
  119.       Font.Height = -13
  120.       Font.Name = 'Arial'
  121.       Font.Style = []
  122.       ParentFont = False
  123.       TabOrder = 3
  124.       OnClick = rdDBCombosEnabledClick
  125.     end
  126.     object rdSourceListEnabled: TCheckBox
  127.       Tag = 4
  128.       Left = 8
  129.       Top = 80
  130.       Width = 139
  131.       Height = 17
  132.       Caption = 'rdSourceListEnabled'
  133.       Font.Color = clBlack
  134.       Font.Height = -13
  135.       Font.Name = 'Arial'
  136.       Font.Style = []
  137.       ParentFont = False
  138.       TabOrder = 4
  139.       OnClick = rdDBCombosEnabledClick
  140.     end
  141.     object rdSourceListVisible: TCheckBox
  142.       Tag = 5
  143.       Left = 8
  144.       Top = 96
  145.       Width = 131
  146.       Height = 17
  147.       Caption = 'rdSourceListVisible'
  148.       Font.Color = clBlack
  149.       Font.Height = -13
  150.       Font.Name = 'Arial'
  151.       Font.Style = []
  152.       ParentFont = False
  153.       TabOrder = 5
  154.       OnClick = rdDBCombosEnabledClick
  155.     end
  156.     object rdSelectBtnsVisible: TCheckBox
  157.       Tag = 6
  158.       Left = 8
  159.       Top = 112
  160.       Width = 133
  161.       Height = 17
  162.       Caption = 'rdSelectBtnsVisible'
  163.       Font.Color = clBlack
  164.       Font.Height = -13
  165.       Font.Name = 'Arial'
  166.       Font.Style = []
  167.       ParentFont = False
  168.       TabOrder = 6
  169.       OnClick = rdDBCombosEnabledClick
  170.     end
  171.     object rdExceptListVisible: TCheckBox
  172.       Tag = 7
  173.       Left = 8
  174.       Top = 128
  175.       Width = 132
  176.       Height = 17
  177.       Caption = 'rdExceptListVisible'
  178.       Font.Color = clBlack
  179.       Font.Height = -13
  180.       Font.Name = 'Arial'
  181.       Font.Style = []
  182.       ParentFont = False
  183.       TabOrder = 7
  184.       OnClick = rdDBCombosEnabledClick
  185.     end
  186.     object rdVerifyOnlyBtnVisible: TCheckBox
  187.       Tag = 8
  188.       Left = 154
  189.       Top = 16
  190.       Width = 150
  191.       Height = 17
  192.       Caption = 'rdVerifyOnlyBtnVisible'
  193.       Font.Color = clBlack
  194.       Font.Height = -13
  195.       Font.Name = 'Arial'
  196.       Font.Style = []
  197.       ParentFont = False
  198.       TabOrder = 8
  199.       OnClick = rdDBCombosEnabledClick
  200.     end
  201.     object rdViewErrosBtnVisible: TCheckBox
  202.       Tag = 9
  203.       Left = 154
  204.       Top = 32
  205.       Width = 149
  206.       Height = 17
  207.       Caption = 'rdViewErrosBtnVisible'
  208.       Font.Color = clBlack
  209.       Font.Height = -13
  210.       Font.Name = 'Arial'
  211.       Font.Style = []
  212.       ParentFont = False
  213.       TabOrder = 9
  214.       OnClick = rdDBCombosEnabledClick
  215.     end
  216.     object rdVerRebBtnVisible: TCheckBox
  217.       Tag = 10
  218.       Left = 154
  219.       Top = 48
  220.       Width = 134
  221.       Height = 17
  222.       Caption = 'rdVerRebBtnVisible'
  223.       Font.Color = clBlack
  224.       Font.Height = -13
  225.       Font.Name = 'Arial'
  226.       Font.Style = []
  227.       ParentFont = False
  228.       TabOrder = 10
  229.       OnClick = rdDBCombosEnabledClick
  230.     end
  231.     object rdRebuildOnlyVisible: TCheckBox
  232.       Tag = 11
  233.       Left = 154
  234.       Top = 64
  235.       Width = 140
  236.       Height = 17
  237.       Caption = 'rdRebuildOnlyVisible'
  238.       Font.Color = clBlack
  239.       Font.Height = -13
  240.       Font.Name = 'Arial'
  241.       Font.Style = []
  242.       ParentFont = False
  243.       TabOrder = 11
  244.       OnClick = rdDBCombosEnabledClick
  245.     end
  246.     object rdSaveBatchVisible: TCheckBox
  247.       Tag = 12
  248.       Left = 154
  249.       Top = 80
  250.       Width = 133
  251.       Height = 17
  252.       Caption = 'rdSaveBatchVisible'
  253.       Font.Color = clBlack
  254.       Font.Height = -13
  255.       Font.Name = 'Arial'
  256.       Font.Style = []
  257.       ParentFont = False
  258.       TabOrder = 12
  259.       OnClick = rdDBCombosEnabledClick
  260.     end
  261.     object rdFileInfoVIsible: TCheckBox
  262.       Tag = 13
  263.       Left = 154
  264.       Top = 96
  265.       Width = 110
  266.       Height = 17
  267.       Caption = 'rdFileInfoVIsible'
  268.       Font.Color = clBlack
  269.       Font.Height = -13
  270.       Font.Name = 'Arial'
  271.       Font.Style = []
  272.       ParentFont = False
  273.       TabOrder = 13
  274.       OnClick = rdDBCombosEnabledClick
  275.     end
  276.     object rdGuagesVisible: TCheckBox
  277.       Tag = 14
  278.       Left = 154
  279.       Top = 112
  280.       Width = 116
  281.       Height = 17
  282.       Caption = 'rdGuagesVisible'
  283.       Font.Color = clBlack
  284.       Font.Height = -13
  285.       Font.Name = 'Arial'
  286.       Font.Style = []
  287.       ParentFont = False
  288.       TabOrder = 14
  289.       OnClick = rdDBCombosEnabledClick
  290.     end
  291.     object rdLogVisible: TCheckBox
  292.       Tag = 15
  293.       Left = 154
  294.       Top = 128
  295.       Width = 90
  296.       Height = 17
  297.       Caption = 'rdLogVisible'
  298.       Font.Color = clBlack
  299.       Font.Height = -13
  300.       Font.Name = 'Arial'
  301.       Font.Style = []
  302.       ParentFont = False
  303.       TabOrder = 15
  304.       OnClick = rdDBCombosEnabledClick
  305.     end
  306.   end
  307.   object CheckBox1: TCheckBox
  308.     Left = 8
  309.     Top = 299
  310.     Width = 209
  311.     Height = 17
  312.     Caption = 'Status Guage Callbacks Active'
  313.     Font.Color = clBlack
  314.     Font.Height = -13
  315.     Font.Name = 'Arial'
  316.     Font.Style = []
  317.     ParentFont = False
  318.     TabOrder = 2
  319.     OnClick = CheckBox1Click
  320.   end
  321.   object Memo1: TMemo
  322.     Left = 320
  323.     Top = 160
  324.     Width = 145
  325.     Height = 129
  326.     Font.Color = clBlack
  327.     Font.Height = -13
  328.     Font.Name = 'Arial'
  329.     Font.Style = []
  330.     Lines.Strings = (
  331.       'Memo1')
  332.     ParentFont = False
  333.     TabOrder = 3
  334.   end
  335.   object Memo2: TMemo
  336.     Left = 8
  337.     Top = 8
  338.     Width = 617
  339.     Height = 129
  340.     Font.Color = clBlack
  341.     Font.Height = -12
  342.     Font.Name = 'Arial'
  343.     Font.Style = []
  344.     Lines.Strings = (
  345.       
  346.         'The TUtility dialog box component (TRepairDialog) offers a fast ' +
  347.         'and easy way to implement Paradox table '
  348.       'verify and repair in your application.'
  349.       ''
  350.       
  351.         'Great care has been taken to make the Repair Dialog as flexible ' +
  352.         'as possible. Single or multiple table repair '
  353.       
  354.         'is completely supported along with the ability to deliver either' +
  355.         ' a simple "one click" solution or a power user '
  356.       '"do it all" solution.'
  357.       ''
  358.       
  359.         'The SourceDBName property lets you predefine where to get the li' +
  360.         'st of tables to be verified, and the '
  361.       
  362.         'BorrowDBName property lets you pre-specify where to borrow the t' +
  363.         'able structures from in case a rebuild is '
  364.       
  365.         'necessary. Note that you do not need to specify either of these ' +
  366.         'properties at design time. This can be left to '
  367.       'the user to do at run time.'
  368.       ''
  369.       
  370.         'The DlgOptions property is the key to making the dialog box as s' +
  371.         'imple or as powerful as your users require. '
  372.       
  373.         'Use this property to show, hide, enable or disable the various p' +
  374.         'arts of the dialog.'
  375.       ''
  376.       
  377.         'The dialog box'#39's TableList property lets you pre-specify which t' +
  378.         'able in the database should be checked. '
  379.       'Again this is optional, you can leave it to the user to choose.'
  380.       ''
  381.       
  382.         'The optional BorrowRebuildOnly property pre-specifies if a table' +
  383.         ' can be rebuilt without another table to '
  384.       
  385.         'borrow the structure from. Its always a good idea to always borr' +
  386.         'ow the structure of a known good table.'
  387.       ''
  388.       
  389.         'Some times you just don'#39't want to see all those status guages sp' +
  390.         'inning around. You can turn them off by '
  391.       
  392.         'setting the CallBackActive property to false. (This also improve' +
  393.         's preformace.)'
  394.       ''
  395.       '')
  396.     ParentFont = False
  397.     ScrollBars = ssVertical
  398.     TabOrder = 4
  399.   end
  400.   object CheckBox2: TCheckBox
  401.     Left = 224
  402.     Top = 296
  403.     Width = 241
  404.     Height = 17
  405.     Caption = 'Only rebuild with borrowed structure'
  406.     Font.Color = clBlack
  407.     Font.Height = -13
  408.     Font.Name = 'Arial'
  409.     Font.Style = []
  410.     ParentFont = False
  411.     TabOrder = 5
  412.     OnClick = CheckBox2Click
  413.   end
  414.   object Button2: TButton
  415.     Left = 496
  416.     Top = 168
  417.     Width = 121
  418.     Height = 25
  419.     Caption = 'Close'
  420.     TabOrder = 6
  421.     OnClick = Button2Click
  422.   end
  423.   object RepairDialog1: TRepairDialog
  424.     SourceDBName = 'DBDEMOS'
  425.     BorrowDBName = 'DBDEMOS'
  426.     TableList.Strings = (
  427.       'customer.db'
  428.       'items.db'
  429.       '')
  430.     BorrowRebuildOnly = False
  431.     Left = 488
  432.     Top = 256
  433.   end
  434. end
  435.